GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

error msg for term input

Browse Source
This commit is contained in:
aarne
2004-04-13 11:55:52 +00:00
parent 543e602bfe
commit 7c6b0cbff6
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/Shell.hs
View File

@@ -293,8 +293,10 @@ opST2CommandArg f = err AError ATrms . f . prCommandArg
opTS2CommandArg :: (Tree -> String) -> CommandArg -> CommandArg opTS2CommandArg :: (Tree -> String) -> CommandArg -> CommandArg
opTS2CommandArg f (ATrms ts) = AString $ unlines $ map f ts 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 :: (Tree -> [Tree]) -> CommandArg -> CommandArg
opTT2CommandArg f (ATrms ts) = ATrms $ concat $ map f ts 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)

2
src/Today.hs
View File

@@ -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"