@@ -79,7 +79,7 @@ idrisMain opts =
79 let pkgdirs = opt getPkgDir opts
79 let pkgdirs = opt getPkgDir opts
80 -- Set default optimisations
80 -- Set default optimisations
81 let optimise = case opt getOptLevel opts of
81 let optimise = case opt getOptLevel opts of
83 xs -> last xs
83 xs -> last xs
85 setOptLevel optimise
85 setOptLevel optimise