最初はreadTextみたいな関数を作ろうとしていました。 readの、StringじゃなくてTextを取る版。 readText :: Read a => Text -> a で、最初はこんな感じで実装しようとしていた。 module Main where import Data.Text (Text) import qualified Data.Text as …