@@ -115,7 +115,7 @@ brokenScribe scribeNum = do
117-------------------------------------------------------------------------------
117-------------------------------------------------------------------------------
118−data BrokenScribeError = ScribeBroken Int deriving (Show)
118+data BrokenScribeError = ScribeBroken Int deriving (Show, Typeable)
121instance Exception BrokenScribeError
121instance Exception BrokenScribeError