diff --git a/csound-expression.cabal b/csound-expression.cabal
--- a/csound-expression.cabal
+++ b/csound-expression.cabal
@@ -1,5 +1,5 @@
 Name:          csound-expression
-Version:       1.0.0
+Version:       1.0.1
 Cabal-Version: >= 1.6
 License:       BSD3
 License-file:  LICENSE
diff --git a/src/Csound/Opcode/Basic.hs b/src/Csound/Opcode/Basic.hs
--- a/src/Csound/Opcode/Basic.hs
+++ b/src/Csound/Opcode/Basic.hs
@@ -104,11 +104,11 @@
 
 -- | Reads @sr@ value.
 sampleRate :: D
-sampleRate = (setRate Ir :: E -> I) $ readVar (VarVerbatim Ir "sr")
+sampleRate = (setRate Ir :: E -> D) $ readVar (VarVerbatim Ir "sr")
 
 -- | Reads @ksmps@ value.
 blockSize :: D
-blockSize = (setRate Ir :: E -> I) $ readVar (VarVerbatim Ir "ksmps")
+blockSize = (setRate Ir :: E -> D) $ readVar (VarVerbatim Ir "ksmps")
 
 -----------------------------------------------------
 -- Standard Oscillators