more compiler fixes

src/FWL/Pretty.hs

@@ -82,6 +82,7 @@ prettyPat (PTuple ps)      = "(" ++ intercalate ", " (map prettyPat ps) ++ ")"
 prettyPat (PFrame mp inner)=
   "Frame(" ++ maybe "" (\pp -> prettyPath pp ++ ", ") mp ++ prettyPat inner ++ ")"
 prettyPat (PBytes bs)      = "[" ++ unwords (map prettyBE bs) ++ "]"
+prettyPat (POr p1 p2)      = prettyPat p1 ++ " | " ++ prettyPat p2
 
 prettyFP :: FieldPat -> String
 prettyFP (FPEq n l)  = n ++ " = " ++ prettyLit l