diff options
Diffstat (limited to 'src/GF/Devel/Optimize.hs')
| -rw-r--r-- | src/GF/Devel/Optimize.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Devel/Optimize.hs b/src/GF/Devel/Optimize.hs index 4621e8f6c..b44f6a53d 100644 --- a/src/GF/Devel/Optimize.hs +++ b/src/GF/Devel/Optimize.hs @@ -247,7 +247,8 @@ mkLinDefault :: SourceGrammar -> Type -> Err Term mkLinDefault gr typ = do case unComputed typ of RecType lts -> mapPairsM mkDefField lts >>= (return . Abs strVar . R . mkAssign) - _ -> prtBad "linearization type must be a record type, not" typ + _ -> liftM (Abs strVar) $ mkDefField typ +---- _ -> prtBad "linearization type must be a record type, not" typ where mkDefField typ = case unComputed typ of Table p t -> do |