diff options
| author | aarne <unknown> | 2004-04-13 11:55:52 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-04-13 11:55:52 +0000 |
| commit | 26b03cef106c399f6417d9157466dee139c54c5a (patch) | |
| tree | 89adf17ba62f4915654ce08a687b6fd2a825da64 /src | |
| parent | b79b2b8b4189e804eb753454ec1e618dcdf15993 (diff) | |
error msg for term input
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Shell.hs | 6 | ||||
| -rw-r--r-- | src/Today.hs | 2 |
2 files changed, 5 insertions, 3 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 7574b86a6..4c2a067a4 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -293,8 +293,10 @@ opST2CommandArg f = err AError ATrms . f . prCommandArg opTS2CommandArg :: (Tree -> String) -> CommandArg -> CommandArg opTS2CommandArg f (ATrms ts) = AString $ unlines $ map f ts -opTS2CommandArg _ _ = AError ("expected term") +opTS2CommandArg _ (AError s) = AError ("expected term, but got error:" ++++ s) +opTS2CommandArg _ a = AError ("expected term, but got:" ++++ prCommandArg a) opTT2CommandArg :: (Tree -> [Tree]) -> CommandArg -> CommandArg opTT2CommandArg f (ATrms ts) = ATrms $ concat $ map f ts -opTT2CommandArg _ _ = AError ("expected term") +opTT2CommandArg _ (AError s) = AError ("expected term, but got error:" ++++ s) +opTT2CommandArg _ a = AError ("expected term, but got:" ++++ prCommandArg a) diff --git a/src/Today.hs b/src/Today.hs index 8e73014b1..1aa673d28 100644 --- a/src/Today.hs +++ b/src/Today.hs @@ -1 +1 @@ -module Today where today = "Thu Apr 1 11:42:56 CEST 2004" +module Today where today = "Tue Apr 13 13:53:49 CEST 2004" |