[clean up code a little
John Meacham <john@repetae.net>**20080306050748] hunk ./Ho/Build.hs 523
-            Just opt = fileOptions opts `mplus` Just options where
-            s' = if "shl." `isPrefixOf` reverse fn  then unlit fn s else s
-            opts' = concat [ words as | (x,as) <- parseOptions s', x `elem` ["OPTIONS","JHC_OPTIONS","OPTIONS_JHC"]]
-            opts = opts' ++ [ "--noprelude" | ("NOPRELUDE",_) <- parseOptions s']
-            langs = concat [ words as | ("LANGUAGE",as) <- parseOptions s' ]
+            Just opt = fileOptions opts `mplus` Just options
+            popts = parseOptions $ if "shl." `isPrefixOf` reverse fn  then unlit fn s else s
+            opts' = concat [ words as | (x,as) <- popts, x `elem` ["OPTIONS","JHC_OPTIONS","OPTIONS_JHC"]]
+            opts = opts' ++ [ "--noprelude" | ("NOPRELUDE",_) <- popts]
+            langs = concat [ words as | ("LANGUAGE",as) <- popts ]