GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 02:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

another attempt to get the paths handling right

Browse Source
This commit is contained in:
krasimir
2009-10-05 14:58:13 +00:00
parent be966cdda2
commit 332dbf7b9b
7 changed files with 38 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Grammar/Binary.hs
View File

@@ -82,7 +82,7 @@ instance Binary ModuleStatus where
instance Binary Options where
put = put . optionsGFO
get = do opts <- get
case parseModuleOptions ["--" ++ flag ++ "=" ++ value | (flag,value) <- opts] of
case parseModuleOptions "." ["--" ++ flag ++ "=" ++ value | (flag,value) <- opts] of
Ok x -> return x
Bad msg -> fail msg