From 95de9b2913be536972f3921d41c24d9c0458c538 Mon Sep 17 00:00:00 2001
From: Greg Brown <greg.brown01@ed.ac.uk>
Date: Sat, 17 Dec 2022 17:45:02 +0000
Subject: Add totality annotations.

The parser is unfortunately not classified as total.
---
 src/Obs/Main.idr | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Obs/Main.idr')

diff --git a/src/Obs/Main.idr b/src/Obs/Main.idr
index 2cf10e6..6142e77 100644
--- a/src/Obs/Main.idr
+++ b/src/Obs/Main.idr
@@ -12,11 +12,14 @@ import System
 import Text.PrettyPrint.Prettyprinter
 import Text.PrettyPrint.Prettyprinter.Render.Terminal
 
+%default total
+
 usage : IO ()
 usage = do
   () <- putStrLn "usage: obs <file>"
   exitFailure
 
+partial
 main : IO ()
 main = do
   [_, file] <- getArgs
-- 
cgit v1.2.3