automate more option stuff

if the elaborator writes it then it will be kept up to date
automatically

exe/Options.idr

@@ -7,6 +7,7 @@ import System.File
 import System.Term
 import Derive.Prelude
 
+%default total
 %language ElabReflection
 
 public export
@@ -63,20 +64,14 @@ toOutFile ""  = Ok {outFile := None}
 toOutFile "-" = Ok {outFile := Stdout}
 toOutFile f   = Ok {outFile := File f}
 
-private
-phaseName : Phase -> String
-phaseName Parse = "parse"
-phaseName Check = "check"
-phaseName Erase = "erase"
-
 private
 toPhase : String -> OptAction
-toPhase str = case toLower str of
+toPhase str =
-  "parse" => Ok {until := Just Parse}
+  let lstr = toLower str in
-  "check" => Ok {until := Just Check}
+  case find (\p => toLower (show p) == lstr) allPhases of
-  "erase" => Ok {until := Just Erase}
+    Just p  => Ok {until := Just p}
-  _       => Err "unknown phase name \{show str}\nphases: \{phaseNames}"
+    Nothing => Err "unknown phase name \{show str}\nphases: \{phaseNames}"
-where phaseNames = joinBy ", " $ map phaseName allPhases
+where phaseNames = joinBy ", " $ map (toLower . show) allPhases
 
 private
 toWidth : String -> OptAction